home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / execlib / exec_p_load_proc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  1.0 KB  |  35 lines
  1. /*
  2. ### procedure for loading an input file onto a execution text window ###
  3. */
  4.  
  5. #include <suntool/sunview.h>
  6. #include <suntool/panel.h>
  7. #include <suntool/textsw.h>
  8.  
  9.  
  10. void
  11. exec_panel_load_proc()
  12. {
  13.  
  14.         char string[120];
  15.     extern Panel_item exec_dir_name_item,exec_file_name_item,exec_input_name_item;
  16.     extern Textsw exec_textsw;
  17.     extern Textsw_status exec_status;
  18.     extern char exec_dir_name[],exec_file_name[],exec_input_name[];
  19.  
  20.         strcpy(exec_dir_name,(char *)panel_get_value(exec_dir_name_item));
  21.         strcpy(exec_file_name,(char *)panel_get_value(exec_file_name_item));
  22.         strcpy(exec_input_name,(char *)panel_get_value(exec_input_name_item));
  23.         sprintf(string,"%s/%s",exec_dir_name,exec_input_name);
  24.     
  25.         window_set(exec_textsw,
  26.                 TEXTSW_STATUS, &exec_status,
  27.                 TEXTSW_FILE,string,
  28.                 TEXTSW_FIRST,0,
  29.                 0);
  30.         if(exec_status == TEXTSW_STATUS_CANNOT_OPEN_INPUT){
  31.                 printf("File (%s) does not exist!\n",string);
  32.         }       
  33.  
  34. }
  35.